home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / system / pc_dcl.zip / GOSUB.DCL < prev    next >
Text File  |  1991-09-08  |  364b  |  23 lines
  1. SUBR1:   SUBROUTINE
  2. run echo subr1 line1
  3. $       call subr2 param1 "param 2" 3
  4. run echo subr1 line2
  5. exit
  6. ENDSUBROUTINE
  7. $!
  8. $               !line1
  9. $               !line 2
  10. $               !line3
  11. $       call subr1 param1 "param 2" 3
  12. $               !line4
  13. $       exit
  14.  
  15.  
  16. SUBR2:   SUBROUTINE
  17. sho sym p1
  18. sho sym p2
  19. sho sym p3
  20. exit
  21. ENDSUBROUTINE
  22.  
  23.